quickif <- function(judge = T, treturn = "", freturn = ""){
  if(judge){
    return(treturn)
  }else{
    return(freturn)
  }
}